Trading on the Edge/Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin/pc/mac_file/vendor_d/neuralwa/nw2v50/mapsched.iif

Text File | 1993-08-23 | 1KB | 123 lines

inst4.1
! Sets up schedule for mapping part of Radial Basis
! Function network.
! Assumes new named schedule has been set up
!
! n0, n1, f0, f1, f2 corrupted on output
!
=f0    LCRt
?f0    1.0
>bgt    LCRtOK
=f0    1.0
/f0    LCRt
:LCRtOK
lf0    10.0        ! Take log

?BBT1    10
>bge    BBT1OK
=BBT1    10
:BBT1OK
/f0    BBT1

! Column A
! For self-organizing networks, first column gets nulled out
=lcta    MpLC    ! Start where self organizing schedule left off
=ArrX    1
=lcft    "Learning Rate"
=lcfa    0.0
=ArrX    2
=lcft    "Momentum"
=lcfa    0.0
=ArrX    3
=lcft    "Err. Tolerance"
=lcfa    0.0

! Start the schedule here
=n0    MpLC
=n1    1

! Column B
=lctb    n1
*lctb    BBT1
+lctb    n0
*n1    2
=n0    lctb
=f2    1.0

=ArrX    1
=lcfb    BBLC
*lcfb    f2
=ArrX    2
=lcfb    BBMm
*lcfb    f2
=ArrX    3
=lcfb    0.1

! Column C
=lctc    n1
*lctc    BBT1
+lctc    n0
*n1    2
=f1    0.0
-f1    f0
-n0    MpLC
*f1    n0
=f2    10.0
^f2    f1
=n0    lctc

=ArrX    1
=lcfc    BBLC
*lcfc    f2
=ArrX    2
=lcfc    BBMm
*lcfc    f2
=ArrX    3
=lcfc    0.1

! Column D
=lctd    n1
*lctd    BBT1
+lctd    n0
*n1    2
=f1    0.0
-f1    f0
-n0    MpLC
*f1    n0
=f2    10.0
^f2    f1
=n0    lctd

=ArrX    1
=lcfd    BBLC
*lcfd    f2
=ArrX    2
=lcfd    BBMm
*lcfd    f2
=ArrX    3
=lcfd    0.1

! Column E
=lcte    n1
*lcte    BBT1
+lcte    n0
*n1    2
=f1    0.0
-f1    f0
-n0    MpLC
*f1    n0
=f2    10.0
^f2    f1

=ArrX    1
=lcfe    BBLC
*lcfe    f2
=ArrX    2
=lcfe    BBMm
*lcfe    f2
=ArrX    3
=lcfe    0.1

@SLRS
=ArrX    0